home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / tcp / facts.lha / facts4.1 / install.rexx < prev    next >
OS/2 REXX Batch file  |  2000-01-03  |  364b  |  23 lines
  1. /* FACTS ARexx install script: quits running FACTS, and loads new one
  2. ** $VER: FACTS_Install.rexx 1.1 (03.01.00)
  3. */
  4.  
  5. ARG filename
  6.  
  7. OPTIONS RESULTS
  8.  
  9. if show(ports,FACTS) then ADDRESS FACTS 'QUIT'
  10.  
  11. ADDRESS COMMAND 'WBRun ' filename
  12.  
  13. ADDRESS COMMAND 'WaitForPort FACTS'
  14.  
  15. ADDRESS FACTS 'GETTIME'
  16.  
  17. open(0,'T:TIME','W')
  18. writeln(0,RESULT)
  19. close(0)
  20.  
  21. ADDRESS FACTS 'SHOW'
  22.  
  23.